home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / s / ep_nextpatt.dopus < prev    next >
Text File  |  1993-10-05  |  346b  |  20 lines
  1. /* Eagleplayersteuerung (c) 1993 Henryk Richter */
  2. options results
  3.  
  4. address 'rexx_EP'
  5.  status m pnr
  6.  num = result
  7.  'status p 'num' jmp'
  8.  player = result
  9.  if player=="yes" then do
  10.   nextpatt
  11.   aha=result
  12.   address 'DOPUS.1'
  13.   toptext 'Eagleplayer: '||aha
  14.  end
  15.  else do
  16.   address 'DOPUS.1'
  17.   toptext 'Eagleplayer: Patternjump Impossible'
  18.  end
  19. exit
  20.